home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / macro28.lha / Macro / Update / JoinGEDConfs.ged < prev    next >
Encoding:
Text File  |  1994-10-23  |  2.3 KB  |  72 lines
  1. /* $VER: 1.0, ©1994 Wolfgang Küting */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4.  
  5. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.     address 'GOLDED.1'
  7.  
  8. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  9. OPTIONS FAILAT 6                            /* ignore warnings         */
  10. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  11.  
  12.  
  13. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  14. Address Command 'Requestfile DRAWER="GoldEd:Configs/" TITLE="Bitte Quellverz. wählen..." DRAWERSONLY >env:SrcList'
  15. Address Command 'Requestfile DRAWER="ENVARC:GoldEd/" TITLE="Bitte Zielverz. wählen..." DRAWERSONLY >env:DestDir'
  16.  
  17. SrcList = GetEnv('SrcList')||".list"
  18. DestDir = GetEnv('DestDir')
  19.  
  20. If Open(in,SrcList,'R') Then Do
  21.   DirPath = ReadLn(in)
  22.   Do Until Eof(in)
  23.     Filename = ReadLn(in)
  24.  
  25.     If Filename ~= '' Then Do
  26.       'GUI CONFIG="'||DirPath||Filename||'.gui" LOAD'
  27.       'HUNTER CONFIG="'||DirPath||Filename||'.hnt" LOAD'
  28.       'INDENT CONFIG="'||DirPath||Filename||'.ind" LOAD'
  29.       'LAYOUT CONFIG="'||DirPath||Filename||'.lay" LOAD'
  30.       'MENUS CONFIG="'||DirPath||Filename||'.men" LOAD'
  31.       'MISC CONFIG="'||DirPath||Filename||'.msc" LOAD'
  32.       'MOUSE CONFIG="'||DirPath||Filename||'.rat" LOAD'
  33.       'PATH CONFIG="'||DirPath||Filename||'.ref" LOAD'
  34.       'PHRASE CONFIG="'||DirPath||Filename||'.dic" LOAD'
  35.       'PRINT CONFIG="'||DirPath||Filename||'.prt" LOAD'
  36.       'PROJECT CONFIG="'||DirPath||Filename||'.prj" LOAD'
  37.       'SCREEN CONFIG="'||DirPath||Filename||'.dsp" LOAD'
  38.       'TABS CONFIG="'||DirPath||Filename||'.tab" LOAD'
  39.       'TMPLATE CONFIG="'||DirPath||Filename||'.tpl" LOAD'
  40.       'BIND CONFIG="'||DirPath||Filename||'.key" LOAD'
  41.       'API CONFIG="'||DirPath||Filename||'.api" LOAD'
  42.  
  43.       'PREFS CONFIG="'||DestDir||Filename||'.prefs" SAVE'
  44.     End
  45.   End
  46.   call Close(in)
  47. End
  48. Else
  49.   'REQUEST PROBLEM "Kann '||SrcList||' nicht öffnen!"'
  50.  
  51. 'PREFS CONFIG="ENVARC:GoldEd/GoldEd.prefs" LOAD'
  52.  
  53. /* ---------------------------- END OF YOUR CODE --------------------- */
  54.  
  55. 'UNLOCK' /* VERY important: unlock GUI */
  56. EXIT
  57.  
  58. GetEnv:
  59.   Arg name
  60.   EnvVar = ''
  61.   If Open(envin,'ENV:'||name,'R') Then Do
  62.     EnvVar = ReadLn(envin)
  63.     call Close(envin)
  64.   End
  65. Return Strip(EnvVar,'B','"')
  66.  
  67. SYNTAX:
  68.  
  69. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  70. 'UNLOCK'
  71. EXIT
  72.